home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00280_Script_GESTION_ZONE_TRAVELING_MANUEL_VERS_DROITE < prev    next >
Text File  |  2004-12-05  |  2KB  |  49 lines
  1. global gpiste_Fond, gdemiW_Fond, gL_Home, gdeltaTravelingMax, gze_label, gNb_Traveltracks, gdeltaTraveling, gpisteReticule
  2. property pdizsprite, pdizspriteNo,pdizguyName, p_coefReticule
  3. ---------------------------------------------
  4. on getPropertyDescriptionList me
  5.   return [#p_coefReticule:[#comment: "coef de la miniature (-1 => pas de miniature:",#format:  #integer, #default: 0.1 ]]
  6. end getPropertyDescriptionList
  7. ----------------------------------
  8. on beginsprite me
  9.   pdizspriteNo = me.spriteNum
  10.   pdizsprite = sprite(pdizspriteNo)
  11.   pdizguyName = pdizsprite.member.name
  12.   if voidP(gdeltaTravelingMax) then gdeltaTravelingMax = 0
  13.   gdeltaTraveling = sprite(gpiste_Fond).member.width -640
  14. end
  15. ----------------------------------- 
  16. on mouseWithin
  17.   if the pauseState = 1 then exit
  18.   temp1 = member("droiteM").number
  19.   temp2 = member("droiteMMASK").number
  20.   cursor[temp1,temp2]
  21.   if sprite(gpiste_Fond).locH > 640 - gdemiW_Fond then
  22.     repeat with i =gpiste_Fond to gpiste_Fond + gNb_Traveltracks
  23.       sprite(i).locH = sprite(i).locH - 5
  24.     end repeat
  25.     gdeltaTraveling = gdeltaTraveling - 5
  26.     if p_coefReticule <> -1 then
  27.       if voidP(gpisteReticule) then
  28.         nothing
  29.       else
  30.         
  31.       end if
  32.     end if
  33.     go the frame
  34.   else
  35.     sprite(gpiste_Fond).locH = 640 - gdemiW_Fond
  36.     repeat with i = 1 to gNb_Traveltracks
  37.       cursor -1
  38.       sprite(gpiste_Fond + i).locH = gL_Home[i][1]- gdeltaTravelingMax
  39.     end repeat
  40.     updateStage
  41.   end if
  42. end
  43. ----------------------------------- 
  44. on mouseLeave
  45.   if the pauseState = 1 then exit
  46.   cursor -1
  47. end
  48. ----------------------------------- 
  49.